﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<%
select case v
case "0"
we0="<br/>"
hr="--------------<br/>"
%>
<card title="天气预报查询"><p align="left">
<%
case "1"
hr=""
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
we1="</div>"
%>
<title>天气预报查询</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%
End Select
dim urll,city
urll=request.querystring("url")
city=request.querystring("city")
if city<>"" then
	Response.Cookies("3gqingtianct")=""&city&""
	Response.Cookies("3gqingtianct").Expires = Date + 30 '一月内有效
	Response.Cookies("weather")=""
end if
if urll<>"" then
	Response.Cookies("3gqingtiansf")=""&urll&""
	Response.Cookies("3gqingtiansf").Expires = Date + 30 '一月内有效
end if
Dim Url,Html,start,over,body,wap,wstr,str
url="http://qq.ip138.com/weather/"&urll&"/"&city&".wml"
wstr=qingtian.getHTTPPage(url)            
start=Instr(wstr,"<p>")
over=Instr(wstr,"<br/><a href=""/weather/weather_prov.wml"">&gt;按省份查询天气</a><br/>")

body=mid(wstr,start,over-start)

body = replace(body,"</td>","")
body = replace(body,"<td>","")
body = replace(body,"</tr>","<br/>")
body = replace(body,"<tr>","")
body = replace(body,"<br/><br/><br/><b>","<br/><br/><b>")
body = replace(body,"</p>","")
body = replace(body,"<p>","")
Response.Write we
if body="" then
Response.Write "很遗憾.无法为您的获取天气情况,<a href='index.asp?sid="&sid&"&amp;vs="&vs&"'>重新查询</a><br/>"
else
Response.write body
end if
Response.Write we1
Response.Write hr
%>
<%=sou%><a href='index.asp?sid=<%=sid%>'>天气首页</a><%=we0%>

<%
end Function
%>
